Fortran 块

块可以包含代码并定义专属于块的局部变量：

block
...
if ... exit
end block